home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_4851.txt < prev    next >
Text File  |  1991-04-30  |  29KB  |  1,079 lines

  1. -- card: 4851 from stack: in.3r
  2. -- bmap block id: 41640
  3. -- flags: 4000
  4. -- background id: 3091
  5. -- name: Index
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide menubar
  9.   put the size of this stack into card field "StackSize"
  10.   put the freesize of this stack into card field "Wasted"
  11.   pass opencard
  12. end opencard
  13.  
  14.  
  15.  
  16. -- part 71 (field)
  17. -- low flags: 01
  18. -- high flags: 0002
  19. -- rect: left=59 top=270 right=341 bottom=510
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 3
  24. -- text size: 12
  25. -- style flags: 256
  26. -- line height: 16
  27. -- part name: Index Buttons
  28.  
  29.  
  30. -- part 1 (button)
  31. -- low flags: 00
  32. -- high flags: A004
  33. -- rect: left=128 top=288 right=337 bottom=186
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 2 / 2
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: XCMDS...
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   if the optionkey is down then pass mouseup
  45.  
  46.   controlButton "XCMDs"
  47.  
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 5 (button)
  53. -- low flags: 00
  54. -- high flags: A004
  55. -- rect: left=65 top=288 right=337 bottom=123
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 2 / 2
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: XFCNs...
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   if the optionkey is down then pass mouseup
  67.  
  68.   controlButton "XFCNs"
  69.  
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 13 (button)
  75. -- low flags: 00
  76. -- high flags: A004
  77. -- rect: left=191 top=288 right=337 bottom=249
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 29007 / 29007
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Functions...
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   if the optionkey is down then pass mouseup
  89.  
  90.   controlButton "Functions"
  91.  
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 19 (button)
  97. -- low flags: 00
  98. -- high flags: A004
  99. -- rect: left=255 top=288 right=337 bottom=313
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 1060 / 1060
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Scripts...
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   if the optionkey is down then pass mouseup
  111.  
  112.   controlButton "Scripts"
  113.  
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 27 (field)
  119. -- low flags: 01
  120. -- high flags: 0002
  121. -- rect: left=421 top=170 right=187 bottom=500
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 3
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Issue
  130.  
  131.  
  132. -- part 28 (field)
  133. -- low flags: 01
  134. -- high flags: 0002
  135. -- rect: left=421 top=153 right=170 bottom=500
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 3
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Date
  144.  
  145.  
  146. -- part 31 (button)
  147. -- low flags: 00
  148. -- high flags: A004
  149. -- rect: left=332 top=79 right=104 bottom=407
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Link...
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   --
  161.   --Original script by Steve Drazga, AnalytX Incorpoated
  162.   --XFCNs used: fileName
  163.   --XCMDs used: none
  164.   --HANDLERS used: none
  165.   --FUNCTIONS used: none
  166.   --
  167.   if the optionkey is down then pass mouseup
  168.  
  169.   put "You can link another stack to the Developer Stack"
  170.   answer "This will install a button in another stack." with "Cancel" or "OK"
  171.   if it is "Cancel" then
  172.     play oops
  173.     hide message window
  174.     exit mouseup
  175.   end if
  176.  
  177.   put "Please select the destination stack"
  178.   put filename("STAK") into thefile
  179.   if thefile is empty then
  180.     play oops
  181.     hide message window
  182.     exit mouseup
  183.   end if
  184.  
  185.   set cursor to 4
  186.   put "Thank you.  Please wait..."
  187.   choose button tool
  188.   put the long name of this stack into gohere
  189.   delete word 1 of gohere
  190.   put "go to " before gohere
  191.   put "on mouseup" into first line of buttonscript
  192.   put "visual barn door close to black" into second line of buttonscript
  193.   put "visual barn door open to gray" into third line of buttonscript
  194.   put "visual barn door close" into fourth line of buttonscript
  195.   put "push this card" into fifth line of buttonscript
  196.   put gohere into sixth line of buttonscript
  197.   put "end mouseup" into seventh line of buttonscript
  198.  
  199.   set visible of background button "Developer Stack" to true
  200.   click at loc of background button "Developer Stack"
  201.   domenu copy button
  202.   set visible of background button "Developer Stack" to false
  203.   choose browse tool
  204.   set cursor to 4
  205.  
  206.   push card
  207.   set lockmessages to true
  208.   go to thefile
  209.   set cursor to 3
  210.   put "Just click where you want the button placed."
  211.   repeat while the mouseclick is false
  212.   end repeat
  213.   set cursor to 0
  214.   put "Thank you.  Please wait..."
  215.   put the Mouseloc into PutItHere
  216.   domenu paste button
  217.   set loc of button "Developer Stack" to PutItHere
  218.   set the script of button "Developer Stack" to buttonscript
  219.   choose browse tool
  220.   pop card
  221.   set lockmessages to false
  222.   hide message window
  223. end mouseUp
  224.  
  225.  
  226. -- part 34 (field)
  227. -- low flags: 01
  228. -- high flags: 0002
  229. -- rect: left=314 top=134 right=151 bottom=422
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 65535
  233. -- font id: 3
  234. -- text size: 12
  235. -- style flags: 256
  236. -- line height: 16
  237. -- part name: size2
  238. ----- HyperTalk script -----
  239. on mouseup
  240.   if the optionkey is down then pass mouseup
  241.   if the freesize of this stack is 0 then exit mouseup
  242.   put the userlevel into temp
  243.   set userlevel to 5
  244.   domenu "compact stack"
  245.   set userlevel to temp
  246.   put the size of this stack into card field "StackSize"
  247.   put the freesize of this stack into card field "Wasted"
  248. end mouseup
  249.  
  250.  
  251.  
  252. -- part 35 (field)
  253. -- low flags: 01
  254. -- high flags: 0002
  255. -- rect: left=421 top=134 right=151 bottom=500
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 0
  259. -- font id: 3
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Wasted
  264.  
  265.  
  266. -- part 36 (field)
  267. -- low flags: 01
  268. -- high flags: 0002
  269. -- rect: left=421 top=117 right=134 bottom=500
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 0
  273. -- font id: 3
  274. -- text size: 12
  275. -- style flags: 0
  276. -- line height: 16
  277. -- part name: StackSize
  278.  
  279.  
  280. -- part 37 (field)
  281. -- low flags: 01
  282. -- high flags: 0002
  283. -- rect: left=314 top=117 right=134 bottom=422
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 65535
  287. -- font id: 3
  288. -- text size: 12
  289. -- style flags: 256
  290. -- line height: 16
  291. -- part name: size1
  292. ----- HyperTalk script -----
  293. on mouseup
  294.   if the optionkey is down then pass mouseup
  295.   put the size of this stack into card field "StackSize"
  296.   put the freesize of this stack into card field "Wasted"
  297. end mouseup
  298.  
  299.  
  300.  
  301. -- part 41 (button)
  302. -- low flags: 00
  303. -- high flags: A004
  304. -- rect: left=319 top=288 right=337 bottom=377
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 27056 / 27056
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: Buttons...
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   if the optionkey is down then pass mouseup
  316.   controlButton "Buttons"
  317. end mouseUp
  318.  
  319.  
  320.  
  321. -- part 44 (button)
  322. -- low flags: 00
  323. -- high flags: A004
  324. -- rect: left=382 top=288 right=337 bottom=440
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 22999 / 22999
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: Quick Ref...
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   if the optionkey is down then pass mouseup
  336.   controlButton "Quick Ref"
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 45 (button)
  342. -- low flags: 00
  343. -- high flags: A004
  344. -- rect: left=445 top=288 right=337 bottom=503
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 11645 / 11645
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Full Index...
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   if the optionkey is down then pass mouseup
  356.   controlbutton index
  357. end mouseUp
  358.  
  359.  
  360.  
  361.  
  362. -- part 47 (button)
  363. -- low flags: 80
  364. -- high flags: A002
  365. -- rect: left=449 top=314 right=335 bottom=507
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 1
  369. -- font id: 3
  370. -- text size: 9
  371. -- style flags: 0
  372. -- line height: 12
  373. -- part name: Sort Index
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   if the optionkey is down then
  377.     pass mouseup
  378.   end if
  379.  
  380.   set cursor to 4
  381.   put sortitems(card field index,true) into card field index
  382.  
  383. end mouseUp
  384.  
  385.  
  386.  
  387. -- part 53 (field)
  388. -- low flags: 80
  389. -- high flags: 2007
  390. -- rect: left=57 top=113 right=260 bottom=310
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 0 / 0
  393. -- text alignment: 0
  394. -- font id: 3
  395. -- text size: 9
  396. -- style flags: 0
  397. -- line height: 14
  398. -- part name: Power Tips
  399. ----- HyperTalk script -----
  400. on mousewithin
  401.   --
  402.   --
  403.   --hypertext technique by Steve Drazga, AnalytX Incorporated
  404.   --if you use this in your scripts please include these 2 lines.
  405.   --
  406.   --
  407.   global selectedWord
  408.  
  409.   if the locktext of the target is true then   --unlock the field if
  410.     set locktext of target to false            --it is locked.
  411.   end if
  412.  
  413.   if selection is not empty then  --something was selected
  414.     put selection into SelectedWord
  415.  
  416.     if space is in SelectedWord then  --the user selected more than 1 word
  417.       click at loc of target       --so we will clear the selection
  418.       exit mousewithin             --and exit to wait for another selection
  419.     end if
  420.  
  421.     --
  422.     --this is the section where you do something with the selection
  423.     --
  424.     if SelectedWord is "asterisk" then
  425.       play boing
  426.       answer "Yes, this IS an example!"
  427.       click at loc of target
  428.     else
  429.       if SelectedWord is "bill" then
  430.         show button "bill"
  431.       else
  432.         if selectedWord is "Drazga" then
  433.           visual iris open to gray
  434.           visual iris close to black
  435.           visual iris open to gray
  436.           visual iris close
  437.           go background information
  438.         else
  439.           play "oops"
  440.           answer "Do you see any asterisk there?!!!"
  441.           click at loc of target
  442.         end if
  443.       end if
  444.     end if
  445.     --
  446.     --
  447.     --
  448.   end if
  449. end mousewithin
  450.  
  451.  
  452.  
  453. -- part 55 (button)
  454. -- low flags: 80
  455. -- high flags: 2000
  456. -- rect: left=257 top=205 right=239 bottom=294
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 2002 / 2002
  459. -- text alignment: 1
  460. -- font id: 0
  461. -- text size: 12
  462. -- style flags: 0
  463. -- line height: 16
  464. -- part name: bill
  465. ----- HyperTalk script -----
  466. on mouseUp
  467.   play boing
  468.   answer "Hey! Don't click on his head!!"
  469.   hide the target
  470. end mouseUp
  471.  
  472.  
  473.  
  474. -- part 22 (field)
  475. -- low flags: 81
  476. -- high flags: 0007
  477. -- rect: left=15 top=206 right=315 bottom=119
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 0
  481. -- font id: 3
  482. -- text size: 9
  483. -- style flags: 0
  484. -- line height: 12
  485. -- part name: XFCNs
  486.  
  487.  
  488. -- part 7 (field)
  489. -- low flags: 80
  490. -- high flags: 0007
  491. -- rect: left=79 top=206 right=315 bottom=184
  492. -- title width / last selected line: 0
  493. -- icon id / first selected line: 0 / 0
  494. -- text alignment: 0
  495. -- font id: 3
  496. -- text size: 9
  497. -- style flags: 0
  498. -- line height: 12
  499. -- part name: XCMDs
  500.  
  501.  
  502. -- part 23 (field)
  503. -- low flags: 81
  504. -- high flags: 0007
  505. -- rect: left=144 top=206 right=315 bottom=249
  506. -- title width / last selected line: 0
  507. -- icon id / first selected line: 0 / 0
  508. -- text alignment: 0
  509. -- font id: 3
  510. -- text size: 9
  511. -- style flags: 0
  512. -- line height: 12
  513. -- part name: Functions
  514.  
  515.  
  516. -- part 48 (field)
  517. -- low flags: 81
  518. -- high flags: 0007
  519. -- rect: left=209 top=206 right=315 bottom=314
  520. -- title width / last selected line: 0
  521. -- icon id / first selected line: 0 / 0
  522. -- text alignment: 0
  523. -- font id: 3
  524. -- text size: 9
  525. -- style flags: 0
  526. -- line height: 12
  527. -- part name: Scripts
  528.  
  529.  
  530. -- part 49 (field)
  531. -- low flags: 81
  532. -- high flags: 0007
  533. -- rect: left=273 top=206 right=315 bottom=378
  534. -- title width / last selected line: 0
  535. -- icon id / first selected line: 0 / 0
  536. -- text alignment: 0
  537. -- font id: 3
  538. -- text size: 9
  539. -- style flags: 0
  540. -- line height: 12
  541. -- part name: Buttons
  542.  
  543.  
  544. -- part 50 (field)
  545. -- low flags: 81
  546. -- high flags: 0007
  547. -- rect: left=338 top=206 right=315 bottom=443
  548. -- title width / last selected line: 0
  549. -- icon id / first selected line: 0 / 0
  550. -- text alignment: 0
  551. -- font id: 3
  552. -- text size: 9
  553. -- style flags: 0
  554. -- line height: 12
  555. -- part name: Quick Ref
  556.  
  557.  
  558. -- part 51 (field)
  559. -- low flags: 81
  560. -- high flags: 0007
  561. -- rect: left=402 top=206 right=315 bottom=507
  562. -- title width / last selected line: 0
  563. -- icon id / first selected line: 0 / 0
  564. -- text alignment: 0
  565. -- font id: 3
  566. -- text size: 9
  567. -- style flags: 0
  568. -- line height: 12
  569. -- part name: Authors...
  570.  
  571.  
  572. -- part 65 (field)
  573. -- low flags: 80
  574. -- high flags: 0007
  575. -- rect: left=285 top=72 right=315 bottom=450
  576. -- title width / last selected line: 0
  577. -- icon id / first selected line: 0 / 0
  578. -- text alignment: 0
  579. -- font id: 3
  580. -- text size: 9
  581. -- style flags: 0
  582. -- line height: 12
  583. -- part name: index
  584. ----- HyperTalk script -----
  585. on mousedown
  586.   set locktext of target to false
  587.   click at the clickloc
  588.   click at the clickloc
  589.   put selection into selectedWord
  590.   set locktext of target to true
  591.  
  592.   if selectedWord is not empty then
  593.     visual dissolve to inverse
  594.     visual dissolve
  595.     go card selection
  596.   end if
  597. end mousedown
  598.  
  599.  
  600.  
  601.  
  602. -- part 68 (button)
  603. -- low flags: 00
  604. -- high flags: A004
  605. -- rect: left=244 top=79 right=104 bottom=319
  606. -- title width / last selected line: 0
  607. -- icon id / first selected line: 0 / 0
  608. -- text alignment: 1
  609. -- font id: 0
  610. -- text size: 12
  611. -- style flags: 0
  612. -- line height: 16
  613. -- part name: Tips...
  614. ----- HyperTalk script -----
  615. on mouseUp
  616.   if the optionkey is down then pass mouseup
  617.   set cursor to 4
  618.   set scroll of card field "power tips" to 0
  619.   set visible of card field "copyright" to false
  620.   set visible of card field "new" to false
  621.   set visible of card field "power tips" to not visible of card field "power tips"
  622. end mouseUp
  623.  
  624.  
  625.  
  626. -- part 69 (button)
  627. -- low flags: 00
  628. -- high flags: A004
  629. -- rect: left=67 top=79 right=104 bottom=142
  630. -- title width / last selected line: 0
  631. -- icon id / first selected line: 0 / 0
  632. -- text alignment: 1
  633. -- font id: 0
  634. -- text size: 12
  635. -- style flags: 0
  636. -- line height: 16
  637. -- part name: Help!!!...
  638. ----- HyperTalk script -----
  639. on mouseUp
  640.   if the optionkey is down then pass mouseup
  641.   set cursor to 4
  642.   visual dissolve to gray
  643.   visual dissolve
  644.   go to card "help card"
  645. end mouseUp
  646.  
  647.  
  648.  
  649. -- part 56 (field)
  650. -- low flags: 01
  651. -- high flags: 2007
  652. -- rect: left=57 top=113 right=260 bottom=310
  653. -- title width / last selected line: 0
  654. -- icon id / first selected line: 0 / 0
  655. -- text alignment: 0
  656. -- font id: 3
  657. -- text size: 9
  658. -- style flags: 0
  659. -- line height: 14
  660. -- part name: copyright
  661. ----- HyperTalk script -----
  662. on mousedown
  663.   set visible of me to false
  664. end mousedown
  665.  
  666.  
  667. -- part 70 (button)
  668. -- low flags: 00
  669. -- high flags: A004
  670. -- rect: left=156 top=79 right=104 bottom=231
  671. -- title width / last selected line: 0
  672. -- icon id / first selected line: 0 / 0
  673. -- text alignment: 1
  674. -- font id: 0
  675. -- text size: 12
  676. -- style flags: 0
  677. -- line height: 16
  678. -- part name: ⌐ Info...
  679. ----- HyperTalk script -----
  680. on mouseUp
  681.   if the optionkey is down then pass mouseup
  682.   set cursor to 4
  683.   set scroll of card field "copyright" to 0
  684.   set visible of card field "new" to false
  685.   set visible of card field "power tips" to false
  686.   set visible of card field "copyright" to not visible of card field "copyright"
  687. end mouseUp
  688.  
  689.  
  690.  
  691. -- part 72 (field)
  692. -- low flags: 01
  693. -- high flags: 0002
  694. -- rect: left=314 top=153 right=170 bottom=422
  695. -- title width / last selected line: 0
  696. -- icon id / first selected line: 0 / 0
  697. -- text alignment: 65535
  698. -- font id: 3
  699. -- text size: 12
  700. -- style flags: 256
  701. -- line height: 16
  702. -- part name: size2
  703.  
  704.  
  705. -- part 73 (field)
  706. -- low flags: 01
  707. -- high flags: 0002
  708. -- rect: left=314 top=170 right=187 bottom=422
  709. -- title width / last selected line: 0
  710. -- icon id / first selected line: 0 / 0
  711. -- text alignment: 65535
  712. -- font id: 3
  713. -- text size: 12
  714. -- style flags: 256
  715. -- line height: 16
  716. -- part name: size2
  717.  
  718.  
  719. -- part 75 (field)
  720. -- low flags: 81
  721. -- high flags: 2007
  722. -- rect: left=57 top=113 right=260 bottom=310
  723. -- title width / last selected line: 0
  724. -- icon id / first selected line: 0 / 0
  725. -- text alignment: 0
  726. -- font id: 3
  727. -- text size: 9
  728. -- style flags: 0
  729. -- line height: 14
  730. -- part name: new
  731. ----- HyperTalk script -----
  732. on mousedown
  733.   hide me
  734. end mousedown
  735.  
  736.  
  737. -- part 78 (button)
  738. -- low flags: 00
  739. -- high flags: A004
  740. -- rect: left=421 top=79 right=104 bottom=496
  741. -- title width / last selected line: 0
  742. -- icon id / first selected line: 0 / 0
  743. -- text alignment: 1
  744. -- font id: 0
  745. -- text size: 12
  746. -- style flags: 0
  747. -- line height: 16
  748. -- part name: Ads...
  749. ----- HyperTalk script -----
  750. on mouseUp
  751.   answer "The next issue of the Developer Stack will include special "& "offers from publishers of HyperCard related materials.  For more "& "information, call AnalytX at 215-750-0792."
  752. end mouseUp
  753.  
  754.  
  755.  
  756. -- part 81 (button)
  757. -- low flags: 00
  758. -- high flags: 2004
  759. -- rect: left=3 top=88 right=131 bottom=50
  760. -- title width / last selected line: 0
  761. -- icon id / first selected line: 14767 / 14767
  762. -- text alignment: 1
  763. -- font id: 0
  764. -- text size: 12
  765. -- style flags: 0
  766. -- line height: 16
  767. -- part name: About...
  768. ----- HyperTalk script -----
  769. on mouseUp
  770.   if the optionkey is down then pass mouseup
  771.   set cursor to 4
  772.   visual iris open to gray
  773.   visual iris close to black
  774.   visual iris open to gray
  775.   visual iris close
  776.   go background information
  777. end mouseUp
  778.  
  779.  
  780.  
  781. -- part 82 (button)
  782. -- low flags: 00
  783. -- high flags: 2004
  784. -- rect: left=3 top=129 right=172 bottom=50
  785. -- title width / last selected line: 0
  786. -- icon id / first selected line: 29114 / 29114
  787. -- text alignment: 1
  788. -- font id: 0
  789. -- text size: 12
  790. -- style flags: 0
  791. -- line height: 16
  792. -- part name: Back
  793. ----- HyperTalk script -----
  794. on mouseUp
  795.   if the optionkey is down then pass mouseup
  796.   set cursor to 4
  797.   visual barn door close to black
  798.   visual barn door open
  799.   pop card
  800. end mouseUp
  801.  
  802.  
  803.  
  804. -- part 83 (button)
  805. -- low flags: 00
  806. -- high flags: 2004
  807. -- rect: left=3 top=170 right=213 bottom=50
  808. -- title width / last selected line: 0
  809. -- icon id / first selected line: 1011 / 1011
  810. -- text alignment: 1
  811. -- font id: 0
  812. -- text size: 12
  813. -- style flags: 0
  814. -- line height: 16
  815. -- part name: Home
  816. ----- HyperTalk script -----
  817. on mouseUp
  818.   if the optionkey is down then pass mouseup
  819.   set cursor to 4
  820.   visual dissolve to black
  821.   visual dissolve
  822.   go first card of home
  823. end mouseUp
  824.  
  825.  
  826.  
  827. -- part 84 (button)
  828. -- low flags: 00
  829. -- high flags: 2004
  830. -- rect: left=3 top=211 right=254 bottom=50
  831. -- title width / last selected line: 0
  832. -- icon id / first selected line: 1000 / 1000
  833. -- text alignment: 1
  834. -- font id: 0
  835. -- text size: 12
  836. -- style flags: 0
  837. -- line height: 16
  838. -- part name: Open Stack
  839. ----- HyperTalk script -----
  840. on mouseUp
  841.   if the optionkey is down then pass mouseup
  842.   domenu "open stack..."
  843. end mouseUp
  844.  
  845.  
  846.  
  847. -- part 80 (button)
  848. -- low flags: 00
  849. -- high flags: 2004
  850. -- rect: left=3 top=252 right=295 bottom=50
  851. -- title width / last selected line: 0
  852. -- icon id / first selected line: 17343 / 17343
  853. -- text alignment: 1
  854. -- font id: 0
  855. -- text size: 12
  856. -- style flags: 0
  857. -- line height: 16
  858. -- part name: Launch Application
  859. ----- HyperTalk script -----
  860. on mouseUp
  861.   if the optionkey is down then pass mouseup
  862.   visual venetian blinds to gray
  863.   visual venetian blinds to black
  864.   visual venetian blinds to gray
  865.   visual venetian blinds
  866.   go to background "Mini Hyperstation"
  867. end mouseUp
  868.  
  869.  
  870.  
  871. -- part 79 (button)
  872. -- low flags: 00
  873. -- high flags: 2004
  874. -- rect: left=3 top=293 right=336 bottom=50
  875. -- title width / last selected line: 0
  876. -- icon id / first selected line: 21786 / 21786
  877. -- text alignment: 1
  878. -- font id: 0
  879. -- text size: 12
  880. -- style flags: 0
  881. -- line height: 16
  882. -- part name: Menus Off
  883. ----- HyperTalk script -----
  884. on mouseUp
  885.   if the optionkey is down then pass mouseup
  886.  
  887.   if menubar("┬⌐1988SDrazga") then hide menubar else show menubar
  888. end mouseUp
  889.  
  890.  
  891.  
  892. -- part 85 (button)
  893. -- low flags: 00
  894. -- high flags: A004
  895. -- rect: left=316 top=210 right=235 bottom=498
  896. -- title width / last selected line: 0
  897. -- icon id / first selected line: 0 / 0
  898. -- text alignment: 1
  899. -- font id: 0
  900. -- text size: 12
  901. -- style flags: 0
  902. -- line height: 16
  903. -- part name: What's new in this issue?
  904. ----- HyperTalk script -----
  905. on mouseup
  906.   if the optionkey is down then pass mouseup
  907.   set cursor to 4
  908.   set scroll of card field "new" to 0
  909.   set visible of card field "copyright" to false
  910.   set visible of card field "power tips" to false
  911.   set visible of card field "new" to not visible of card field "new"
  912. end mouseup
  913.  
  914.  
  915. -- part contents for card part 27
  916. ----- text -----
  917. 1.3
  918.  
  919. -- part contents for card part 28
  920. ----- text -----
  921. 11/05/88
  922.  
  923. -- part contents for card part 34
  924. ----- text -----
  925. Wasted Space:
  926.  
  927. -- part contents for card part 37
  928. ----- text -----
  929. Stack Size:
  930.  
  931. -- part contents for card part 36
  932. ----- text -----
  933. 676980
  934.  
  935. -- part contents for card part 35
  936. ----- text -----
  937. 9664
  938.  
  939. -- part contents for card part 53
  940. ----- text -----
  941.                 ΓÇóΓÇóΓÇóPOWER USER TIPSΓÇóΓÇóΓÇó
  942.  
  943.                    ┬½┬½Section Jumping┬╗┬╗
  944.    To go to the beginning of a specific section 
  945. (XFCNs, Scripts, etc.) hold down the command key when clicking on the index button.
  946.  
  947.                  ┬½┬½HyperText Linking┬╗┬╗
  948.    When you see an item in a field followed by an asterisk*, double clicking on that word will either give you more information, or take you to a linked card.  (We're up to HyperCard 1.21 and still waiting for those 'sticky buttons',  Bill*.)
  949.  
  950.                    ┬½┬½Script Peeking┬╗┬╗
  951.    To look at the script of any button or card, anywhere in the stack, just hold down the option key when you click on it.  To look at the script of a background hold down the shift and option keys when you click in it.
  952.  
  953.           ┬½┬½Linking to Stack-in-Progress┬╗┬╗
  954.    The easiest way to access this stack when you are developing an new stack is to use the 'Link this stack' button and install a link to Developer Stack in your work-in-progress stack.  When you are fininshed with your stack, you can delete the 'Developer Stack' button. 
  955.  
  956.                        ┬½┬½Miscellany┬╗┬╗
  957.    Clicking on the words 'Stack Size'  will give you the current size of the stack, not including the resources.
  958.  
  959.    Clicking on the word 'Wasted' will compact the stack.
  960.  
  961.  
  962. -Steve Drazga*
  963. -AnalytX Incorporated
  964.  
  965.  
  966.  
  967.  
  968. -- part contents for card part 56
  969. ----- text -----
  970.  
  971.      This stack is ┬⌐1987,88 Steve Drazga & AnalytX.  The individual XCMDs and scripts are copyrighted by the original authors as stated their description.
  972.  
  973.      This issue of Developer Stack may be freely distributed by individuals in its original form with all original messages.  DO NOT DISTRIBUTE MODIFIED COPIES!    User groups may distribute it for regular disk fees.  Other organizations desiring to charge for the distribution of Developer Stack should contact AnalytX. 
  974.  
  975.      Developer Stack is intended for educational & training purposes only and no warranty is made as to the suitablity of anything included in this stack for any specific purpose.  For support on any individual contributions, please contact the creator directly.
  976.  
  977.  
  978.  
  979.  
  980. -- part contents for card part 71
  981. ----- text -----
  982. Index Buttons
  983.  
  984. -- part contents for card part 72
  985. ----- text -----
  986. Issue Date:
  987.  
  988. -- part contents for card part 73
  989. ----- text -----
  990. Issue Number:
  991.  
  992. -- part contents for card part 75
  993. ----- text -----
  994.  
  995.                      ┬½┬½What's new?┬╗┬╗
  996.  
  997.    First and most obvious is the rearrangement of the control card (where you are now) and other cosmetic changes (improvements?).  The next issue (coming out in late January or Early February 1989) will have major structural changes (are you ready for 'Developer Stack...The Next Generation', or 'Developer Stack II...The Wrath of Bill'?).  These changes will make it much easier to expand, access, categorize, and cross reference all the items in the stack.
  998.  
  999.     One neat addition to this issue is the auto scroll buttons.  Clicking and holding the mouse down on one of the right or left navigational buttons will keep scrolling you through the stack.
  1000.  
  1001.      The index buttons have been redesigned to provide faster access to the index lists.  The doList XCMD was too slow in displaying the lists, so I converted to the DialogList XFCN (about 3 times as fast).  The lists are now kept sorted alphabetically.  Rather than sorting the lists each time before displaying them, they now are only sorted after a new item is added to the list 
  1002. (when you add a new card).
  1003.  
  1004.                   ┬╗┬╗┬╗Remember┬½┬½┬½
  1005. You can get the next issue absolutely free by sending in a contribution to the stack (however humble it may be) along with a self-addressed stamped envelope.
  1006.  
  1007. ΓÇóΓÇóNew XCMDsΓÇóΓÇó
  1008. CombineFile
  1009. TitleBar
  1010. Import
  1011. Ejector
  1012. DragOn
  1013. Alert
  1014. ClipToPICTRes
  1015. DrawPict
  1016. Progress
  1017.  
  1018. ΓÇóΓÇóNew XFCNsΓÇóΓÇó
  1019. LastOffset
  1020. StripNum
  1021. FormatNumPadded
  1022. PathItems
  1023. LastPathItem
  1024. FileExists
  1025. FormatNum
  1026. SumInt
  1027. FormatPhoneNum
  1028. DispPict 1.4
  1029. ChangeCase
  1030. AboutMe
  1031. ZipCheck
  1032.  
  1033. ΓÇóΓÇóScript FunctionΓÇóΓÇó
  1034. ChangedObjectLayer
  1035. InsertInList
  1036. LineNumber
  1037. ConvertDate
  1038. CheckString
  1039.  
  1040. ΓÇóΓÇóSpecial ScriptsΓÇóΓÇó
  1041. ScrollingFields
  1042.  
  1043. ΓÇóΓÇóButtonsΓÇóΓÇó
  1044. AutoScroll
  1045. Slider
  1046.  
  1047. ΓÇóΓÇóQuickRef SectionΓÇóΓÇó
  1048. Updated to include new commands & properties for version 1.21.
  1049.  
  1050.  
  1051.  
  1052.  
  1053. -- part contents for card part 65
  1054. ----- text -----
  1055. AboutMe,Alert,ArrowKeys,ART HyperText Trick,AutoScroll,BarButton,ChangeCase,ChangeFileType,ChangeMenu,ChangeObjectLayer,CheckMenu,CheckString,ClipToPICTRes,Color,CombineFile,Commands,CommInit,CommRead,CommWrite,CompactStacks,Constants,Control Structures,convertDate,CopyFile,CStoHCdateconversion,daysBetweenDates,DeleteFile,DeleteFile2,DeleteMenu,DeProtect,DispPict,Dogear,DoList,doRestart,DragOn,DrawPict,Ejector,EnableMenu,FileAtRoot,FileCreator,FileExists,FileLength,FileModDate,FileName,Files,FileType,FileVisFlag,FontName,FontSizesize,FormatNum,FormatNumPadded,FormatPhoneNum,Functions,GetDANames,GetFullPath,GetVolume,HPopUpMenu,HyperSND,Import,ImportPict,initialCaps,InitMidi,InKey,InsertInList,Interpolate,isRunning,LastOffset,LastPathComponent,LastPathItem,LineNumber,lower,massCompact,MenuBar,MergeStacks,More Dog Ears,MoveFile,MultiFinder,MungeMCTB,NewFileName,NewMenu,noButtonDelete,noFieldDelete,NumberofChars,NumberOfDAs,osErr,OSErr,PathItems,PinPointer,PopUp,PopUpMenu,PowerCreate,PowerToggle,PrintClip,Progress,Properties,ReadCat,RenameFile,ResCopy,ResetMIDI,ResetPrinter,Resources,ReturnkeyInField,rnd,RxMIDI,ScreenSize,Scroll Text Button 1,ScrollingFields,Self Naming Button,sendSerial,SetFile,SetVolume,ShowMenu,ShowScripts,ShutDown,Slider,sortItems,SortReals,SortRealsII,SoundCapToRes,Speak,StdFile,Strip,StripNum,Stripper,subLaunch,SumInt,System Messages,Tabs2Spaces,Talk,Text Import,thePixel,TitleBar,TxMIDI ,upper,VolumeName,ZipCheck,
  1056.  
  1057. -- part contents for card part 7
  1058. ----- text -----
  1059. Alert,BarButton,ChangeMenu,CheckMenu,ClipToPICTRes,Color,CombineFile,CommInit,CommWrite,DeleteFile2,DeProtect,DispPict,DoList,doRestart,DragOn,DrawPict,Ejector,EnableMenu,GetDANames,HyperSND,Import,ImportPict,InitMidi,MungeMCTB,OSErr,PrintClip,Progress,ResCopy,ResetMIDI,ResetPrinter,sendSerial,SetVolume,ShowMenu,ShutDown,SoundCapToRes,Speak,StdFile,Stripper,Tabs2Spaces,Talk,TitleBar,TxMIDI ,
  1060.  
  1061. -- part contents for card part 22
  1062. ----- text -----
  1063. AboutMe,ChangeCase,ChangeFileType,CommRead,CopyFile,CStoHCdateconversion,DeleteFile,DeleteMenu,FileCreator,FileExists,FileLength,FileModDate,FileName,Files,FileType,FileVisFlag,FontName,FontSizesize,FormatNum,FormatNumPadded,FormatPhoneNum,GetVolume,HPopUpMenu,initialCaps,InKey,Interpolate,isRunning,LastOffset,LastPathItem,lower,MenuBar,MoveFile,MultiFinder,NewFileName,NewMenu,NumberOfDAs,PathItems,PopUp,PopUpMenu,ReadCat,RenameFile,Resources,RxMIDI,ScreenSize,SetFile,sortItems,SortReals,SortRealsII,Strip,StripNum,subLaunch,SumInt,thePixel,upper,ZipCheck,
  1064.  
  1065. -- part contents for card part 23
  1066. ----- text -----
  1067. CheckString,convertDate,daysBetweenDates,FileAtRoot,GetFullPath,InsertInList,LastPathComponent,LineNumber,noButtonDelete,noFieldDelete,NumberofChars,osErr,PowerCreate,PowerToggle,rnd,VolumeName
  1068.  
  1069. -- part contents for card part 48
  1070. ----- text -----
  1071. ArrowKeys,ART HyperText Trick,ChangeObjectLayer,ReturnkeyInField,Scroll Text Button 1,ScrollingFields,ShowScripts
  1072.  
  1073. -- part contents for card part 49
  1074. ----- text -----
  1075. AutoScroll,CompactStacks,Dogear,massCompact,MergeStacks,More Dog Ears,PinPointer,Self Naming Button,Slider,Text Import,
  1076.  
  1077. -- part contents for card part 50
  1078. ----- text -----
  1079. Commands,Constants,Control Structures,Functions,Properties,System Messages